Sub ConnectOLS1()
Dim rst1 As Recordset

'Create a recordset reference, then set its properties
Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenKeyset
rst1.LockType = adLockOptimistic

'Open the recordset, and print several fields from a test record
rst1.Open "MEMBERS", CurrentProject.Connection
Debug.Print rst1.Fields(0).Value, rst1.Fields(1).Value, _
    rst1.Fields(2).Value, rst1.Fields(5).Value

'Clean up after yourself
rst1.Close
Set rst1 = Nothing

End Sub
